This is my import procedure.

library(tidyverse)
package ‘tidyverse’ was built under R version 4.0.3Registered S3 methods overwritten by 'dbplyr':
  method         from
  print.tbl_lazy     
  print.tbl_sql      
── Attaching packages ───────────────────────────────────────────────────────────────── tidyverse 1.3.0 ──
✓ tibble  3.1.0     ✓ dplyr   1.0.5
✓ tidyr   1.1.3     ✓ stringr 1.4.0
✓ readr   1.4.0     ✓ forcats 0.5.1
✓ purrr   0.3.4     
package ‘tibble’ was built under R version 4.0.3package ‘tidyr’ was built under R version 4.0.3package ‘readr’ was built under R version 4.0.3package ‘purrr’ was built under R version 4.0.3package ‘dplyr’ was built under R version 4.0.3package ‘stringr’ was built under R version 4.0.3package ‘forcats’ was built under R version 4.0.3── Conflicts ──────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
x dplyr::filter() masks plotly::filter(), stats::filter()
x dplyr::lag()    masks stats::lag()
library(ggplot2)
package ‘ggplot2’ was built under R version 4.0.3
library(plotly)
package ‘plotly’ was built under R version 4.0.3Registered S3 method overwritten by 'data.table':
  method           from
  print.data.table     
Registered S3 method overwritten by 'htmlwidgets':
  method           from         
  print.htmlwidget tools:rstudio

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout
p <- ggplot(data = diamonds, aes(x = cut, fill = clarity)) +
            geom_bar(position = "dodge")
ggplotly(p)
NA
#dplyr = filter
library(dplyr)
library(ggplot2)

ad_treatment %>%
 filter(age >= 80L & age <= 85L) %>%
 ggplot() +
 aes(x = drug_treatment, y = mmse, colour = health_status) +
 geom_boxplot(fill = "#0c4c8a") +
 scale_color_hue() +
 theme_minimal()
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBteSBpbXBvcnQgcHJvY2VkdXJlLgoKYGBge3J9CmxpYnJhcnkodGlkeXZlcnNlKQoKbGlicmFyeShyZWFkeGwpCnVybCA8LSAiaHR0cHM6Ly9naXRodWIuY29tL3BoaWxib3dzaGVyL0ZvdW5kYXRpb24tb2YtdGhlLVItV29ya2Zsb3ctd29ya3Nob3AtMjAxOS0wOS0wNi9yYXcvbWFzdGVyL0V4YW1wbGVzL2RhdGEvYWRfdHJlYXRtZW50Lnhsc3giCmRlc3RmaWxlIDwtICJhZF90cmVhdG1lbnQueGxzeCIKY3VybDo6Y3VybF9kb3dubG9hZCh1cmwsIGRlc3RmaWxlKQphZF90cmVhdG1lbnQgPC0gcmVhZF9leGNlbChkZXN0ZmlsZSkKI3BvcHMgZGF0YSBvdXQKI1ZpZXcoYWRfdHJlYXRtZW50KQoKYWRfdHJlYXRtZW50CgpgYGAKYGBge3J9CiNjdHJsK2FsdCtpPSBuZXcgY29kZSBjaHVuawoKCmxpYnJhcnkoZ2dwbG90MikKCmMgPC0gZ2dwbG90KGFkX3RyZWF0bWVudCkgKwogYWVzKHggPSBoZWFsdGhfc3RhdHVzLCB5ID0gbW1zZSwgZmlsbCA9IGRydWdfdHJlYXRtZW50KSArCiBnZW9tX2JveHBsb3QoKSArCiBzY2FsZV9maWxsX2h1ZSgpICsKIHRoZW1lX21pbmltYWwoKQpnZ3Bsb3RseShjKQoKYGBgCgoKCmBgYHtyfQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocGxvdGx5KQpwIDwtIGdncGxvdChkYXRhID0gZGlhbW9uZHMsIGFlcyh4ID0gY3V0LCBmaWxsID0gY2xhcml0eSkpICsKICAgICAgICAgICAgZ2VvbV9iYXIocG9zaXRpb24gPSAiZG9kZ2UiKQoKI21ha2VzIGl0IGludGVyYWN0aXZlCmdncGxvdGx5KHApCgpgYGAKCgpgYGB7cn0KI2RwbHlyID0gZmlsdGVyCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZ2dwbG90MikKCmFkX3RyZWF0bWVudCAlPiUKIGZpbHRlcihhZ2UgPj0gODBMICYgYWdlIDw9IDg1TCkgJT4lCiBnZ3Bsb3QoKSArCiBhZXMoeCA9IGRydWdfdHJlYXRtZW50LCB5ID0gbW1zZSwgY29sb3VyID0gaGVhbHRoX3N0YXR1cykgKwogZ2VvbV9ib3hwbG90KGZpbGwgPSAiIzBjNGM4YSIpICsKIHNjYWxlX2NvbG9yX2h1ZSgpICsKIHRoZW1lX21pbmltYWwoKQoKCmBgYAoK